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PROGRAMACAODiJOeOS 

A CONCLUSAO DA AVENTURA 

Depois de veneer muitos obstaculos, o aventurej- 
ro defronta-se com um ultimo perigo. que acon- 
tecer^? Acenda a lampada e mate o seu coletor 
de impostos. olho perdido do totem tnca final- 
mente encontrado 321 



DATILOGRAFE FRASES LONGAS 

Agora que voce ja sabe tudo sobre o teclado, 
aprenda a digitar frases mais longas. Algumas re- 
gras para uma boa apresentacao do texto. Use a 
tecia de retrocesso para corrjgjr os erros. Nao oihe 
para o teclado 328 
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BUSSOLAS E REL6GI0S 

Seno, cosseno, tangente: nao e precise conhecer 
trigonometria para transformar essas funcoes em 
comandos do BASIC. Os comandos SINi COS e 
TAN e como utiliz^-los no tracado de curvas, cir- 
culos e elipses. Como converter graus em radia- 
nos. Uma esfera composta de elipses 334 




PLANODAOBRA 

"INPUT" e uma obra editada em fascicules semanais, e cada 
conjuntode 15 fascicules compoe um volume Acapa paraenca- 
dernagao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLECAO 

Exemplares atrasados, ace seis meses apos o encerramento da colet;ao, poderao 
ser comprados, a pre«;os atualizados, da seguinte forma: 1. P^ssoalmenle — por 
meiode seu jornateiro ou dirigindo-se ao distribuidor local, cujo endere^o po- 
dera ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
Sao Paulo os enderetos sac: Rua Brigadeiro Tobias, 773 (Centre); Av. Industrial, 
1 1 7 (Santo Andre); e, no Rio de Janeiro; Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderao ser solicitados exemplares atrasados tambem por carta, quedeve 
ser enviada para DINAP — Distribuidor Nacional de Publicacoes — Numeros 
Atrasados — Estrada Velha de Osasco, 132 {Jardim Tereza) — CEP 06000 — 
Osasco — Sao Paulo. 3. Por telex — Utilizeo n? (Oil) 33670 ABSA. Era Portu- 
gal, OS pedidos devem ser feitos a Distribuidora Jardim de Publica?6es Ltd. — 
Qta. Pau Varais, Azinhagade Fetais — 2685, Camarate— Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Nao envie pagamenio aniecipado. O atendimentr sera feito pelo reembolso postal 
e o pagamemo, incluindo as despesas postais, deveri ser efetuado ao se retirar 
a encomenda na Agenda do Correlo. Aten^ao: Apos seis meses do encerramento 
da colefao, os pedidos serao atendidos, dependendo da disponibilidade de es- 
toque, Obs,: Quando pedi r li vros, mencione sempre o titulo e/ou o autor da obra, 
alem do nOmero da edi?ao. 

COL ABORE CONOSCO 

Encaminheseuscomentarios, cn'ticas, sugestoes ou reclamagoes 
ao Servi<;o de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SR 
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A CONCLUS^ DA 
AVENTURA 



COMO SOCORRER HEROI 



ELIMINE COLETOR 



DE IMPOSTOS 



COMO ACENDER A LAWPA DA 
INSTRU CQES 




Na busca incessante do olho perdido do 

totem inca, o heroi chega a sala 

do trono de urn reJno remoto. Saira ele 

com vida ou perecerd nas garras 

de urn implacavd coletor de impostos? 



Depois de muitas peripeci&s e lances 
de emogao, aproxima-se do fim nosso 
jogo de aventura. Antes de conclui-lo, 
porem, devetncs acrescentar-lhe certos 
detalhes, como novos perigos e avisos, 
al^m de uma saida pela qual o aventu- 
reiro possa escapar com vida. Algumas 
instnigScs tambem precisam ser incor- 



poradas ao jogo. 

Como essas rotinas contem detalhes 
espedficos a esta aventura, o programa 
que se segue nao deve ser usado em ou- 
tras aventuras sem modificagoes. Ele 
apenas completara o jogo em andamen- 
to e mostrar^, em termos gerais. o que 
e tiecessario para t'azer um programa 
desse tipo. No prbximo arligo, mostra- 
remos como os princtpios apresentados 
aqui podem ser adaptados de modo a se 
encaixar ^s suas proprias ideias. 



VOCE PRECISA DE AJUDA 



Sempre que se encontrar diante de 



uma situa^ao particularmente perigosa, 
ojogador(e,portanto,o person agem da 
aventura) pode recorrer ao computador. 
.soliciiando sugestoes. Estas aparecerao 
na forma de mensagens impressas pcla 
maquina em resposia ao pedido ("AJU- 
DA R") do jogador. O significado de 
tais mensagens, assim como memen- 
to em que elas .^erlo impressas, depcn- 
de apenas do programador. Podemos 
escolher, se desejarmos, nao apresemar 
qualquer mensagem, ou faze-las propo- 
siialmente ilusorias, ou mesmo prestar 
ajuda somente em alguns locals 
isolados, 

Em nossa aventura existem varios 
pontes onde lalvez valha a pena digitar 



I 
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cunas mensagens para o jogador, adver- 
tindo-o, por exemplo, sobre o quarto es- 
curo quando ele se encontrar em sues 
proximidades. Uma forma interessante 
de mensagem consiste em responder ao 
pedido de "AJUDAR" com um 
'■OLHE PARA ONDE VAI". ou algo 
ate mais enigmatico, 

Outra mensagem pode ser emitida as 
margens do rio, onde o aventureiro cor- 
re risco de se afogar (principalmeme 
se estiver carregando um tijolo). 

Evidentemente, o niimero dessas 
mensagens pode ser mutto grande, Tu- 
do depende da vontade do programa- 
dor. Suponhamos, contudo, que este 
queira emitir apenas um aviso, por 
exemplo, no rio, O primeiro passo para 
isso consistira em relacionar o aviso com 
o niimero do local — numero 7 — e com 
a variavel que registra a presen^a do ti- 
jolo, OB (7). 



3100 REM **AJUDAH** 

3110 IF L07 OR B(2)<>-1 THEN 

PRINT "DESCUtPE, MAO POSSO AJUD 

AR AGORA' : GOTO 330 

3120 PRINT "TIJOLOS SAO MUITO P 

ESADOS. SEU BRACO DEVE ESTAR D 

OENDO.': GOTO 330 



saldar a divida do nosso heroi com o iis- 
co. Assim, ele escolhe ao acaso um dos 
objetos transportados pelo jogador e o 
confisca, podendo levar ate mesmo um 
tijolo como pagamento. 

Se o aventureiro nao estiver carregan- 
do alguma coisa quando o coletor de im- 
postos aparecer, ele serd preso e seu des- 
tino sera apodrecer em uma masmorra. 
E assim o jogo terminari. 

O papel do coletor de imposlos e dar 
um toque de suspense ao Jogo, jd que 
ele surge de forma inesperada, indepen- 
dentemente do local ou de outras con- 
digSes. Como em outros exemplos de 
acaso na programapao de Jogos, deve- 
mos fazer uso da funijao RND. O cole- 
tor e tratado como qualquer um dos ob- 
jetos, com a diferenca que sua localiza- 
gao e determinada ao acaso. 

Aqiti estao as linhas extras, para 
fazer o coletor de impostos aparecer. 



320 IF RND<(1/I5) AND TA-0 
THEN LET B{7)-L: LET TA-1 
480 IF Bt7)-L AND lOlO THEN 
GOTO 1590 



D^'<^[2][^ 



DD 



3100 BEH **AJUDAH*« 

3110 IF L07 OR 0B{2)<>-1 THEN 

PRINT "DESCULPE, NAO POSSO AJLFD 

AB AGORA": GOTO 330 

3120 PRINT ■TIJOt.OS SAO MUITO P 

CSAEtOS. SEU BRACO DEVE ESTAR DO 

ENDO.";OOTO 330 



320 IF RND (15)-! AND TA-0 THEN 

0B(7)-L:TA-1 

480 IF 0B(7)-L AND lOlO THEN 1 

590 



fm 



Se o aventureiro nao se encontrar no 
rio (L < > 7) ou nao estiver carregan- 
do o tijolo — (OB (2) o-l ou B (2) 

< >-l) — , a linha 3110 imprimira a 

mensagem "DESCULPE, NAO POS- rj] [^ 
SO AJUDAR AQUI" . Se, pelo contra- '^■-' ^^""^ 
rio, ele estiver transportando o tijolo e 
solicttar ajuda ao chegar ao rio, ent^ao 
aparecera o aviso "TIJOLOS SAO 
MUITO PESADOS. SEU BRACO DE- 
VE ESTAR DOENDO", impresso pe- 
la linha 3120. 

Nada nos impede de acrescentar uma 
lista completa de mensagens de ajuda 
nas mais diversas condi^oes e locais de 
aventura. 



320 RN-RND(-TIME) :IF INTtHNDd) 

«15+1>-1 AND TA-0 THEN 0B(7)-L: 

TA-1 

480 IF 0BC7)-L AND lOlO THEN 1 

590 



320 IF INT ( 
) - 1 AND TA - 
:TA - 1 

480 IF 0B(7) - L 
THEN 1590 



RND (1) * 15 -i- 1 
THEN OB (7) - L 



AND I < > 10 



COLETOn OE IMPOSTOS 



Se jogador d o "mocinho" da aven- 
tura, quern faz o papel de "bandido" 
e o coletor de impostos. O objetivo deste 
3^ ultimo e confiscar alguns objetos para 



Inicialmente, o Spectrum iguala to- 
das essas variiveis a 0. 

A linha 320 de todos os programas 
da ao aventureiro uma chance em quin- 
ze de encontrar o coletor — este e o pro- 
posito do 15 no RND. O coletor s6 po- 
de aparecer uma vez durante o jogo; 
portanto, voce precisa da varidvel TA 
para saber se isso aconteceu ou nao. 

Se o niimero randSmico for 1 (ou me- 
nor de que 1/15 no Spectrum) e o ins- 
petor ainda nao tiver aparecido, a linha 



T1 




320 ajustari o valor do elemento 7 da 
matriz de localizagao de objetos — cor- 
respondente ao coletor — , de acordo 
com o lugar em que se encontra o joga- 
dor ^ L. O aviso de que o coletor che- 
gou seri dado como se ele fosse um ob- 
jeto que tivesse sido colocado naquele 
local. Esse aviso nada mais e do que a 
descrii;ao do objeto 7: o coletor. 

A linha 480 tern a ver com o ato de 
eliminar o coletor, verificando se voce 
tentou matd-lo. Se voce nao o fez, o pro- 
grama pulard para a linha 1590. 



COMO SE LIVRAR DO COLETOR 



Quando o coletor de impostos mos- 
trar sua cara feia, o aventureiro devera 
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aiirar nele com o rev61ver que pode ser 
encontrado no outro (ado do rio; 



1S40 REH **MATAB** 

1550 IF B{4)<>-1 THEN PRINT "C 

OM QUE?": GOTO 320 

1560 IF B(7)<>L THEN PRINT US; 

" QUEM?"; GOTO 320 

1570 PRINT "VOCE MATOU ";BS(7 

> : LET B(7)-0: GOTO 330 



fi^'^ffiS] 



1540 REM **WATAR«« 

1550 IF 0B(4-)<>-l THEN PHINT'CO 

M QUE ?" :GOT0 320 

1560 IF 0B(7)<>L THEN PRINT V$ ; 

• QUEM ?"rGOTO 320 



1570 PRINT " VOCE MATOU ";0B$ 
(7) :OB(7)-0:GOTO 330 

Essa rotina seri usada quando o joga- 
dor digitar "MATAR" ou "ATIRAR". 
Se ele estiver sem a arma (OB (4) < > 
-1) ou (B (4> <> -1). a linha 1550 per- 
guntar^ "COM QUE?*'. Se o coletor 
nao estiver e o jogador tentar matd-lo, 
a linha 1560 imprimird "QUEM?". A 
linha 1570 comunica: "VOCfi MATOU 
O COLETOR ■• e ajiista o elemento 7 da 
matriz de localiza^ao de objetos para o 
inspetor nao mais existir. 



A VINGANCA DO COLETOR 



• Aqui, o aventureiro e quern sofre nas 
maos do coletor de impostos: 



1580 REM **C0LET0R DE IMPOSTOS* 

1590 LET IN-0: LET B{7)-0 

1600 FOR K-1 TO NB 

1610 IF B(K)— 1 THEN LET IN-IN 

+ 1 

1620 NEXT K 

1630 IF IN-0 THEN PRINT "COMO 

VOCE NAO TEM NADA QUE POSSASER 

CONFISCADO, ELE PRENDE EM UMA 

KASMORRA IMVNDA" r GOTO 1360 
1640 LET K-INT (RND*NB)+1: IF B 
(K)<>-1 THEM GOTO 1640 
1650 PRINT "ELE TOHA ";B$(K), 
"DE VOCE": LET P(K)-0; GOTO 400 






1560 REM **COLET0R DE IMPOSTOS* 

1590 IN-0rOB(7)-0 

1600 FOR K-1 TO NB 

1610 IF OB(K)— 1 THEN IN-IN+1 

1620 NEXT 

1630 IF IN-0 THEN PRINT "COMO U 

OCE NAO TEM NADA QUE POSSASER C 

ONFISCADO, ELE PRENDE EMUMA 

MASMORHA IMUNDA'tGOTO 1360 

1640 K-RND(NB) :IF 0B(K)<>-1 THE 

N 1640 

1650 PRINT "ELE TOMA "jOBStK) 

," DE VOCE" :OB(K)-0:GOTO 330 



rh^aisa 



1580 HEM ** COLETOR DE IMPOST 

OS *« 

1590 IN - 0:OB(7) - 

1600 FOR K - 1 TO NB 

1610 IF OB{K) - - 1 THEN IN - 

IN + 1 
1620 NEXT 

1630 IF IN - THEN PRINT "CO 
MO VOCE NAO TEM NADA QUE POSSA 
SER CONFISCADO, ELE O PRENDE 

EH UNA MASMORRA IHUHDA 
": GOTO 1360 

1640 K - INT t RND (1) * NB + 
1): IF OB(K> < > - 1 THEN 154 


1650 PRINT "ELE TOMA ":OB$(K 
);" DE VOCE":OB(K) - 0: GOTO 33 


Como ao inspetor de taxas e permi- 
tido aparecer apenas uma vez duranie 
a aventura, a linha 1590 ajusia o elemen- 
to 7 da matriz de localiza9ao de objetos 
de forma que ele nao mais exista en- 
quanto durar o programa. Esse proce- 
dimento nao afeta em nada a rotina, 
mas evita o aparecimento do coletor oo 
futuro. IN e um marcador usado para 
vcrificar se objetos estao sendo car- 
regados. 

As linhas 1600 e 1620 passam pela 
matriz de Iocaliza?ao de objetos, verifi- 
cando se cada objeto est a sendo trans- 
portado. Qualquer objeto que estiver 



m 
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sendo carregado aumenta 1 no marca- 
dor IN. 

Se nada estiver sendo transportado, 
entao o valor de TN permanecera e o 
aventureiro sera comunicado: "COMO 
VOCE NAO TEM NADA QUE FOS- 
SA SER CONFISCADO, ELE O 
PRENDERAEM UMA MASMORRA 
IMUNDA". O jogo termina e pergunta- 
se ao aventureiro se ele deseja uma ou- 
tra jogada; isto e ieito pela linha 1360. 

Caso haja objetos sendo transporta- 
dos, a iinha 1640 pegara um deles ao 
acaso. Se esse objeto esiiver entre os que 
estao sendo carregados, ele sera apreen- 
dido. No enianto. se nao estiver, outro 
objeto sera escolhido a esmo e assim, por 
diante, ate que a escolha coincida com 
um que estcja sendo transportado. 

Se um objeto adequado tiver sido se- 
Secionado, a linha 1650 comunicar^ ao 
aventureiro que objeto foi coafiscado 
pelo coletor. O elemento da matriz de 
localiza^ao de objetos correspondentes 
sera entao alterado; assim. o objeto nao 
mais existira. 



UM POUCO DE NATACAO 



Esta rotina e usada quando o joga- 
dor decide atravessar o rio: 



1400 REM **NADAR** 

1410 IF L07 THEN PRINT "NADAR 

ONDE ?!!-: GOTO 400 
1420 IF B(2)--l THEN PRINT "QU 
E yEHGONHA. VOCE SE AFOGOU !": 
GOTO 1360 

1430 IF B(4)>-1 THEN PRINT 'VO 
CE ACHOU UM HEVOLVER": LET BC4) 
--1 : GOTO 400 

1440 PRINT 'VOCE SE MOLHOU TODC 
': GOTO 400 

1400 REM «*NADAR«« 

1410 IF L07 THEN PRINT " ONDE? 

! !-:GOTO 330 

1420 IF 0B{2)--1 THEN PRINT " Q 

UE VERGONHA, VOCE SE AFOGOU! ':G 

OTO 1360 

1430 IF 0BC4)>-1 THEN PRINT " V 

OCE ACHOU UM REVOLVER" :0B (4) —1 

iGOTO 330 

1440 PRINT ■ VOCE SE MOIHOU TOD 

0":GOTO 330 

A linha 1410 verifica se o aventurei- 
ro esta proximo ao rio. Se nao estiver, 
o computador perguntard: "NADAR 
ONDE?!!" Como nao existem piscinas 
ou praias na aventura, nao ha razao pa- 
ra escrever uma rotina de entrada para 
lidar com qualquer outra resposta. Ne- 



nhuma sugestao aparecerd e o jogo pros- 
seguira, mostrando as dire<;5es disponi- 
veis. Caso tente atravessar o rio carre- 
gando tijolo, o jogador morrera — 
"QUE VERGONHA; VOc£ SE AFO- 
GOU!", comentara friamente o compu- 
tador. Mas essa "morie" tent suas par- 
ticularidades: depois de afundar, o jo- 
gador podera ressusciiar, se escoihcr jo- 
gar novamente. 

A linha 1430 verifica se o jogador 
carrega o revolver. Em caso negative, 
o elemento da matriz de localiza§ao de 
objetos correspondente ao rev61ver se- 
r^ ajustado e surgird a mensagem: "VO- 
CE ENCONTROU UM REVOLVER", 

Se o aventureiro ja encontrou a ar- 
ms e estiver tentando atravessar o rio 
novamente, a linha 1440 diri: "VOCfi 
SE MOLHOU TODO". 



FINALMENTt, OLHO PERDIDO 



O jogador so podera recuperar o tao 
cobitjado olho perdido do toJem inca se 
o saco de bolas de gudc tiver sido en- 
contrado. O passo a seguir sera, porlan- 
to, esvaziar o saco para o olho apare- 
cer. Aqui esta a rotina. 



1450 REM **ESVA2IAR** 

1460 IF N$<>-SACO"( TO LEN »$) 

THEN PRINT 'ISTO NAO PODE SER 

ESVAZIADO" : GOTO 400 

1470 IF B(l)<>-1 THEN LET G-1: 

GOTO 1270 
1480 PRINT "AS BOLINHAS SE ESPA 
LHAM PELO CHAD": LET B(5)-L: GO 
TO 370 



DEi'^^ 



1450 REM **ESVA2IAR** 

1460 IN-INSTRCSACO-.NS) :1F IH< 

>1 THEN PRINT " ISTO NAO PODE S 

ER ESVAZIADO": GOTO 330 

1470 IF 0B(1K>-1 THEN G-1:G0T0 

1270 
1480 PRINT ' AS BOLINHAS SE ESP 
ALHAM PELO CHAO" rOB (S) =L :GOT 
370 



QBE] 



1450 HEM «« ESVAZIAR ** 
1460 IN - 0: IF NS - LEFTS ('S 
ACO", LEN (HS)) THEN IN - 1 
1465 IF IN < > I THEW PRINT 
" ISTO NAO PODE SER ESVAZIADO" ; 

GOTO 330 
1470 IF 0B(1) < > - 1 THEN G 

- 1: GOTO 1270 
1480 PRINT ' AS BOLINHAS SE ES 
PALHAM PELO CHA0":0B(5) - L ; GO 
TO 370 



A rotina e chamada quando o aven- 
tureiro aciona o comando "ESVAZIAR" 
ajguma coisa. A linha 1460 verifica se essa 
coisa e o saco. Se nao for (N$ < > "SA- 
CO"), aparecerd a mensagem "ISTO 
NAO PODE SER ESVAZIADO". A li- 
nha 1470 verifica se o saco esta sendo car- 
regado (OB (1) <>-louB(l) <>-!). 
Se nao estiver, em vez de emilir outra 
mensagem, o programa pulara para a li- 
nha 1270, que exibira a mensagem: "VO- 
CE NAO PODE LARGAR O QUE NAO 
TEM". Como o jogador nao querera 
"LARGAR" nada, essa linha deve ser 
modificada, dc forma a dar uma respos- 
ta adcquada, Mude-a para: 



1270 IF B(G) < > -1 THEN PRINT 
"VOCE NAO PODE " ; V$ i " QUE NAO 
TEM' -GOTO 330 

1270 IF 0BCG)<>-1 THEN PRINT "V 
OCE NAO PODE ";V$;" QUE NAO T 
EH": GOTO 330 

A variavel VS imprimira o verbo ade- 
quado — "LARGAR" ou "ESVA- 
ZIAR" — , conforme a situa^ao. 

Se o saco estiver sendo carregado, o 
programa ira para a linha 1480. A men- 
sagem "AS BOLINHAS SE ESPA- 
LHAM PELO CHAO" sera mostrada 
e o elemento 5 da matriz de localizagao 
de objetos sera acertado, 

Nao ha necessidade de imprimir uma 
mensagem para informar o resultado 
porque, ao pular para a linha 370, a im- 
pressao usual de uma descriv'ao longa 
podera substitui-la. Aparecer^ entao no 
video a de.'icrigao usada na matriz de 
descrifoes longas {vcr linha 240). 



AGENDA A LAMPADA 



A lampada precisa ser acesa para que 
o jogador veja as saidas do quano es- 
curo. Se o aventureiro nao esdver car- 
regando a lanterna, a escuridao nao se- 
ra vencida e ele ficard preso. Esta e a ro- 
tina para acender a lampada. 



1490 REM **ACENDEH** 

1500 IF N$<>"LAHPADA"( TO LEN N 

S) THEN PRINT "NAO PODE SER FE 

ITO" : GOTO 400 

ISIO IF B(6)<>-1 THEN LET G-6: 

GOTO 1270 
1520 IF LA~1 THEN PRINT "JA ES 
TA ACESA" : GOTO 400 
1530 LET LA-1: LET DA-0: PRINT 
"OK"; GOTO 330 



DDrk'g 



1490 REM **ACENDEa** 

1500 IN-INSTKCLAMPADA'.WS} :IP 

INOl THEN PRINT " NAO PODE SER 

FEITO':GOTO 330 
1510 IF 0B(6K>-1 THEM G-6;G0T0 

1270 



A ACESA" :GOTO 330 

1530 LA-1: PRINT "OK": GOTO 330 
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1490 REM ** ACENDER ** 

1500 IN - 0: IF NS - LEFTS ("L 

AMPADA" , LEN (NS) ) THEN IN - 1 



" NAO PODE SER FEITO" : GOTO 330 
1510 IF 0B(6) < > - 1 THEN G 

- 6: GOTO 1270 
1520 IF LA - 1 THEN PRINT "JA 

ESTA ACESA": GOTO 330 
1530 LA-1: PRINT 'OK"; GOTO 3 
30 

Para que essa rotina seja requisitada, 



1S20 IF LA-i THEN PRINT" JA EST ISOS IF IN < > 1 THEN PRINT 6 preciso que jogador emiia a instru- 
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Cao"ACENDER", Alinha 1500(1505 
no Apple) e bem parecida com a linha 
equivalenie na rolina "ESVAZIAR", 
verificando se o aventureiro escreveu a 
palavra "LAMPADA". Caso a lanler- 
na nao esteja sendo carregada, surgiri 
a mensagem "VOCe NAO PODE 
ACENDER O QUE NAO TEM". A li- 
nha 1520 verifica se o "indicador de 
lampada acesa" — LA — est A "liga- 
do", comunicando o fato ao aventurei- 
ro. O indicador de lampada acesa i fi- 
xado em 1 pela linha 1530, que tambem 
imprime um "OK". 



A AVENTURA CHEGA AO FIM 



Quando nosso heroi entra em cena, 
encontra uma corrente pendiirada, pr6- 
xima ao trono. 

O que deve ele fazer? Que tal puxar 
a corrente? Aqui estd uma rotlna que 
cuidari das consequencias; 



1300 REM **PUXAR** 
1310 IF NS-'COHBENTE" ( TO LEN N 
S) THEN LET IN-1: IF IN-1 AND 
L024 THEN PRINT "NADA ACONTEC 
E": GOTO 400 

1320 IF INOl THEN PRINT "VOCE 
NAO PODE PUXAR ISTO ! " : GOTO 4 
00 

1330 IF B(5)C>-1 THEN PRINT "V 
OCE CAI DENTRO DO VASO E VAI EM 
BORA COM A DESCABGA": GOTO 1360 
1335 REM **FIM DA AVENTURA** 
1340 PRINT "PAHABENS ! VOCE COM 
PLETOU A TAREFA , ** 

1360 PRINT -'QUER JOGAB NOVAMEN 
TE (S/N)?" 

1370 LET AS-INKEYS: IF AS<>"S" 
AND A$<>"N" THEN GOTO 1370 
1380 IF AS-'S" THEN RUN 
1390 STOP 



DEir^ 



U6 



1300 REM **PUXAH** 

1310 IN-INSTR {"CORRENTE", N3) : IF 

IN-1 AND L024 THEN PRINT " HA 
DA ACONTECE":GOT0 330 
1320 IF INOl THEN PRINT " VOCE 

NAO PODE PUXAR I3S0!":G0T0 330 
1330 IF 08(5)0-1 THEN PRINT" V 
OCE CAI DENTRO DO VASO E VAI 
EMBORA COM A DESCARGA" : GOTO 136 


1340 REM ««FIM DA AVENTURA** 
1350 PRINT 'PARABENS! VOCE COMP 
LETOU A TAHEFA" 

1360 PRINT: PRINT' QUEH JOGAR NO 
UAMENTE tS/N)?" 

1370 AS-INKEYS: IF A3<>"S" AND A 
S<>"N" THEN 1370 
1380 IF A$="S" THEN RUN 
1390 END 
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1300 HEM *« PUXAH *« 

1310 IN - 0: IF NS - LEFTS <"C 

ORHENTE", LEN (N$) ) THEN IN - 1 

1315 IF IN - 1 AND L < > 24 T 

HEN PRINT "NADA ACONTECE" : GOT 

330 

1320 IF IN < > 1 THEN PRINT 

" VOCE NAO PODE PUXAR ISSO" : GO 



TO 330 

1330 IF 0B{5) - - 1 THEN 1340 

1335 PRINT " VOCE CAI DENTRO D 

VASO E VAI EMBORA COM A DESCA 

RGA": GOTO 1360 

1340 HEM «* FIM DA AVENTURA * 

* 

1350 PRINT "PARABENS \ VOCE CO 
MPLETOU A TAREFA.:? "FIMDAAVENT 
URA" 




II 
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1360 PRINT ; PRINT 

R NOVAMENTE (S/N) 7' 

13?0 GET AS: IF A$ < > "S 

D AS < > "N" THEN 1370 

1380 IF A$ - "S- THEN RUN 

1390 END 



A linha 1 3 10 considera a possibilida- 
de de o jogador ter trazido a correiue 
consigo antes mesmo de puxa-la. Neste 




caso, ela dira ao aventureiro que "NA- 
DA ACONTECE". 

Se o heroi tentar puxar qualquer ou- 
tro obieto, a linha 1320 Ihe dira: "VO- 
C£ NAO PODE PUXAR ISSO". 

Depois disso, acontece o inesperado. 
Se o jogador estiver na sala do trono, nao 
tendo por6m cncontrado o olho, apare- 
cera a mensagem "VOCE CM DENTRO 
DO VASO E VAl EMBORA COM A 
DESCARGA". E o jogo termina. 

Se o aventureiro der um jeito de en- 
contrar o olho e puxou a correnie no 
aposento real, nenhuma dessas linhas te- 
ra efeito e ele podera suspirar aliviado 
ao receber a mensagem: "PARABENS! 
VOCE COMPLETOU A TAREFA. 
FIM DA AVENTURA". 

Finalmente, nas linhas 1360 e 1380, 
ha uma opgao para jogar novamente. 
Esia, porem, so sera util se o aventurei- 
ro tiver sido enctausurado na masmor- 
ra ou seguido com a descarga cano 
adentro. 



AS INSTRUCOES 



Devemos incorporar, agora, algumas 
informapoes a rotina do jogo. Antes dis- 
so, por^m, precisamos verificar o espa- 
<;o restante da memoria (ver pagina 212). 
Se esse espago for pequeno, serd neces- 
sario retirar todas as linhas REM — te- 
remos entao que remunerar os coman- 
dos COSUB que direcionam o progra- 
ma para essas linhas, evitando assim 
mensagens de erro. 

A decisao de quantas instrufoes se- 
rao fornecidas deve ser tomada de 
acordo com o espa^o disponivel de me- 
ni6ria. Nelas podemos inciuir ate con- 
sideragoes quanto ao formato do video 
do computador, o que influenciara na 
quaniidade de detalhes a serem inseri- 
dos antes de passarmos para outra tela, 

Como nossa aventura e muito sim- 
ples, a rodna de instrufoes reduz-se a al- 
gumas linhas, contendo poucas infor- 
mapoes. Aqui esta; 



80 CLS : PRINT "QUER INSTRUCO 
ES (S/N)?' 

90 LET AS-INKEY$: IF AS-"" TH 
EN GOTO 20 

95 IF A5-"S" THEN GOSUB 6000 
6000 REM **INSTHOCOES** 
6010 CLS : PRINT : PRINT " DEV 
IDO A UM COLAPSO FINANCEIRO VO 
CE DEIXOU PAIS." 
6020 PRINT : PRINT ' SEUS PROB 
LEMAS VAO TERMINAR QUANDO V 
OCE ENCONTRAR LEGENDA 
RIO OLHO CRAVEJADO DE BEILHA 
NTES DE UM TOTEM INCA . DEPOI 



QUE 



CUIDAtXl 
DE 



S DE FAZE-L0,VOCE TERA 
ENCONTRAR A SAIDA, ' 
6030 PRINT : PRINT " 

COM O COLETOR 
IMPOSTOS ] " 

6040 PRINT AT 20,4;-PRESSIONE Q 
UALQUER TECLA PAHA CONTI 
NUAR" 

6050 LET AS-INKEY$: IF AS-"" TH 
EN GOTO 6050 
6060 RETURN 
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10 CLS: PRINT" QUER INSTRUCOES 

S/N)?- 

20 Ad-INKEYS:IF A$-"- THEN 20 

30 IF AS-"S" THEN GOSUB 6000 

6000 REM *«INSTHUCOES*« 

6010 CLS: PRINT: PRINT " DEVIDO A 
UM COLAPSO FINANCEIRO yoCE DE 

IXOU PAIS." 

6020 PRINT: PRINT ' SEUS PROBLEM 

AS VAO TERMINAR QUANDO VOCE 
ENCONTRAR LEGENDARIO 

OLHO CRAVEJADO DE BRILHANTE 

S DE UM TOTEM INCA. DEPOIS D 

E FA2E-L0 VOCE TEM QUE ENCONTR 

AR A SAIDA." 

6030 PRINT: PRINT" CUIDADO CO 

M COLETOR DE 

IMPOSTOS ! " 

6040 PRINT e451,"APERTE QUALQUE 

R TECLA PARA CONTINUAR." 

6050 A$-INKEYS:IF AS-"" THEN 60 

50 

6060 RETURN 
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10 HOME : PRINT "QUER INSTRUCO 

ES (S/N)?" 

20 GET ASr IF AS - "" THEN 20 

30 IF AS - "S- THEN GOSUB 600 



6000 HEM ** INSTRUCOES ** 

6010 HOME : PRINT "DEVIDO A UM 

COLAPSO FINANCEIRO, VOCE " 
6020 PRINT "DEIXOU O PAIS." 
6025 PRINT "SEUS PROBLEMAS VAO 

TERMINAR" 
6030 PRINT "QUANDO VOCE ENCONT 
RAH LEGENDARIO" 
6040 PRINT "OLHO CRAVEJADO DE 
BRILHANTES. DE UM " 
605O PRINT "TOTEM INCA. DEPOIS 

DE FAZE-LO, VOCE " 
6060 PRINT "TERA QUE ENCONTRAR 

A SAIDA" 
6070 PRINT : PRINT "CUIDADO CO 
M COLETOR DE IMPOSTOS !" 
6080 PRINT : PRINT "APERTE QUA 
LQUER TECLA PARA CONTINUAR" 
6090 GET AS: IF A$ - "" THEN 6 
090 
6100 RETURN 

Agora, grave em fita ou disco a aven- 
tura completa. A estrutura desse jogo — 
O Olho Perdido do Totem !nca — po- 
de servir de base para suas proprias » 
a Venturas, {^^ 
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Se voce ja se sente em condi(;oes de 
digitar quatquer palavra ou frase a um 
ritmo segurO, podemos passar a uma 
nova etapa de nosso curso de datiiogra- 
fia. Ate este ponto, o curso foi util tan- 
to para aqueles que querem apenas di- 
gitar programas quanto para os interes- 
sados em escrever cartas ou usar um edi- 
tor de textos. 

Nesta se?ao, voc8 encontrara a opor- 
tunidade de aperfeifoar suas habilida- 
des, utilizando um texto mais longo. 
Dessa forma, aiem de tornar-se mais ra- 
pido, voce acumulara experiencia para 
usar o computador como uma ferra- 
menta de escrita. 

E muito importante continuar fiel a 
tecnica de digita^ao usada ate agora: 
portanto, nao othe para o teclado en- 
quanto digita; use sempre as tec las base 
como referencia; procure tambem man- 
ter o ritmo constanle — nao saia digi- 
tando sofregamente, a alta velocidade, 
mas sem seguranija (a regra de ouro i 
iniciar a uma velocidade que possa ser 
mantida por algum tempo e, so entao, 
ir acelerando aos poucos). 



COMO USAR PROGRAMA 



Ao executar o programa, o compu- 
tador apresentara um menu inicial com 
duas opgoes de teste, A primeira mos- 
tra f rases geradas ao acaso a partir de 
decSarafoes DATA do programa. A se- 
gunda requer um pouco mais de traba- 
!ho. Ela permite que voce use f rases 
mais longas, mas exige que estas sejam 
digitadas antes. Feito isto, as f rases sao 
mostradas na tela, como no primeiro 
teste. Em ambos os casos voce devera 
datilografar o texto da maneira que ele 
aparece na tela; o programa Ihe infor- 
mara entao o niimero de erros cometi- 
dos e a sua velocidade em palavras por 
minuto. E possfvel tambem escolher a 
maneira de proceder ao se cometer um 
erro (isto t, voce pode usar a tecia de 
retrocesso para corrigi-lo ou nao), 

Se for escolhida a primeira op^ao, o 
engano devc ser corrigido assim que 
ocorre. 

De outro modo, o computador 
aguardara ate que a tecla correta seja 
pressionada. 



O programa para o Apple e um pou- 
co diferente do de outros micros: ele nao 
apresenta a velocidade de digitagao de- 
vido k falta de um cronometro interno. 
E se seu Apple (ou compativel) nao ge- 
ra caracteres miniisculos, nao ha proble- 
ma em digita-los todos em caracteres 
maiiisculos. 

Ao digitar as linhas que contem as in- 
trupoes DATA, tome cuidado em dei- 
xar sempre um espago no fim de cada 
frase, para que as palavras nao fiquem 
justapostas quando o programa for exe- 
cutado. 

Apos algum tempo usando o progra- 
ma, voce vera que as f rases se tornam 
conhecidas e mon6tonas, visto que hd 
poucas varia<;6es, Tente entao substi- 
tui-las por outras a seu gosto. Para fa- 
zer isso, Hste as linhas DATA e 
reescreva-as com frases suas. Lembre- 
se de colocar entre aspas as que contem 
virgulas; faga o mesmo com as que ter- 
minam cada uma das linhas. Voce evi- 
tar^, assim, que elas sejam divididas em 
duas, ou que o espago final seja despre- 
zado pelo computador. Tome medidas 
tambdm para que o mimero de frases 
nao se altere. Se voce nao se sentir a 
vontade para fazer isto, pode variar o 
exercicio optando por dar entrada a tre- 
chos completes de um texto, ou seja, op- 
tando pelo teste 2. 

Cada passagem pode ter um maximo 
de 255 caracteres e o computador acei- 
la at6 tr6s frases ao mesmo tempo. Res- 
ponda as perguntas que aparecerem e di- 
gtte as frases de sua escolha. Depois de 
colocti-las na membria do computador, 
voce podera escolher qualquer uma 

Nos micros MSX, TRS-Color e Spec- 
trum, OS erros sao comunicados pelo 
programa por intermedio de um som 
grave, Nos computadores da linha Ap- 
ple, essa funpao € desempenhada por 
um bip. 



10 POKE 23561,0 

20 CLS 

25 DIM t${3,255): DIM tt3): 

LET df-0 

30 PRINT AT 7.7i'Qual teste C 

1 ou 2) 7' 



Agora que voce \h tern certo dominio 
do teclado, chegou o momento de 
testar sua habilidade como datilografo, 
copiando frases mais longas 
exibidas na tela do computador, 



=1 
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APRENDA A DIGITAR 



SENTENCAS MAIS LONGAS 



VEJA COMO PROGRAMA 

FUNIC lONA 

USE A TECLA DE RETROCESSO 



PARA CORRIGIR OS ERROS 
PRATIQUE COM TEXTQS MAIS 

LONGOS 

REGRAS PARA UMA BOA 
APRESENTACAO DO TEXTO 




40 PRINT AT 10.7:"Digite '0' 
para sair" 

50 LET aS-INKEYS: IF aS<"0" 
OB aS>"2" THEN GOTO 50 
60 IF a$-"0" THEN STOP 
70 GOSUB VAL a$*1000 
80 CLS : PRINT AT 15,4:-Palav 
rae por oinuto- ";LEN c$«(INT 
((500/ (PEEK 23672+2S6«PEEK 
23673))*100)/100) 
90 PRINT AT 17,6:"Nuiiiero de e 
rros" ";e 
100 GOTO iO 

1000 CLS : PRINT 'Deaeja habili 

tar a tecla DELETE (s/n) ?" 

1010 LET aS-INKEYS: IF aSO'n- 

AND aS<>"3" THEN GOTO 1010 

1020 LET e-0: LET d-0 : IF aS-'a 

" THEN LET d-1 

1030 CLS 

1040 LET cS-"*: RESTORE : FOR k 

-1 TO 4: LET r-INT (RND*3)+1: F 

OH J-1 TO 3 

1050 READ b$: 

c$-cS+bS 

1060 NEXT j: 

10 70 PRINT C$; PRINT 

1080 LET pp-0 

1090 LET a$-INKEy$: IF aS' 

EN GOTO 1090 

1100 POKE 23672,0: POKE 23673,0 

: PAUSE 0: GOTO 1120 

1110 PAUSE 

1115 LET a$-mKEYS: IF a$-"' TH 

EN GOTO 1110 

1120 IF a$<>cS(pp+l) AND d-0 TH 

EN GOTO 1170 

1130 PRINT aSiCHRS 95iCHRS 8;: 

LET pp-pp+1 

1140 IF aSOcSCpp) 

170 

.01,30: 



IF j-r THEN LET 



NEXT k 



PRINT 



TH 



THEN GOTO 1 



115 SOUND 
THEN RETURN 
1160 GOTO 1110 
1170 SOUND .05, 



IF pp-LEN C$ 



-10: 



LET e-ft+1 
1180 IF d-0 THEN GOTO 1110 
1190 PAUSE 0: LET a$-INKEYS: IF 

a$<>CHRS 12 THEN GOTO 1190 
1200 LET pp-pp-1: PRINT CHHS 8; 
CHRS 95;' ";CHRS 8;CHR$ 8;: GOT 
1110 

1210 GOTO 1130 
1500 DATA "O cachorro Banco que 

anda com tres pernas "."E fato 

que qualquer urn ".'Na hora cer 
ta, o elefante " 
1510 DATA 'pode arrastar ","ser 
a capaz de aentar sobre *,"pode 

pular por sobre " 
1520 DATA "a velha calxa esbura 
cada "."a torre inclinada de Pi 
aa " , "qualgiuer una das arvorea 
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GOTO 2 



'Intro 

I (n) ' L 
LET tS 



330 



da fazenda ' 

1530 DATA "e derruba-la com um 

enorme eatrondo. " , "aem nedo de 

ter una aurpresa. " , 'ate a hora 

de fechar o zooloflico." 

2000 CLS : IF df-1 THEN 

015 

2005 LET df-1 

2010 FOR n-1 TO 3: INPUT 

duza a paasagem numero "; 

INE rS: LET t (nr-LEN rS; 

(n)-r$: NEXT n 

2015 INPUT "Que passagem voce d 

eaeja digitar (1 a 3)? "p 

2017 IF p>3 OR P<1 THEN GOTO 2 

015 

201B LET cS-t$(p, TO t (p) ) 

2020 CLS : PRINT 'Defleja habili 

tar a tec la DELETE Ca/n)7' 

2030 LET a$-INKEYS: IF a3<>*B" 

AND aS<>"n" THEN GOTO 2030 

2040 LET d"0: LET e-0: IF a$-"fl 

■ THEN LET d-1 

2050 CLS : COSUB 1070: RETURN 

a 

10 CLEAR 2000 

20 CLS:DIM A$(2) 

30 PRINT «101,-QUAL TESTE (1 OU 

2)?" 
40 PRINT ei64,"PRESSI0NE (0) PA 
RA SAIR" 

50 AS-INKEY$:IF AS<'0" OB A$>"2 
- THEN 50 

60 IF A$-"0" THEN CLS: END 
70 ON VAL(AS) GOSUB 1000,2000 
BO CLS: PRINT 8448, USING'PALAVRA 
S POB MINUT0-#»#.t»"!LEN(CS)*50 
0/TIMER 

90 PRINT «480."NUMERO DI EHfiOS- 
'iEi 

100 POKE 282, 255: GOTO 30 
1000 CLS: PRINT ' DESEJA HABILIT 
AR A TECLA DE RE TROCESSO (S/N 
)?" 

1010 AS-INKEYS:IF A3<>"N" AND A 
$<>"S" THEN 1010 

1020 E-0:D-O:IF AS-"S" THEN D-1 
1030 CLS: POKE 282,0 
1040 CS-"": RESTORE: FOR K-1 TO 4 
;R-RND{3) : FOR J-1 TO 3 
1050 READ B$:IF J-H THEN C5-CS+ 
B$ 

1060 NEXT J,K 
1070 PRINT C8 
1080 PP-0 

1090 AS-INKEY$;1F AS-" THEN 10 
90 

1100 TIMER-0:GOTO 1130 
1110 AS-INKEY$:IF AS-"" THEN 11 
10 
1120 IF AS<>MIDS(C$,PP+1,1) AND 

D-0 THEN 1170 
1130 PRINT ePP+256,A$:PP-PP+l 
1140 IF ASOMIDStCS.PP,!) THEN 
1170 

1150 SOUND 200.1:IF PP-LEN(CS) 
THEN RETURN 
1160 GOTO 1110 

1170 SCREEN 0,1:SOUWD 10,1:E-E+ 
1 



1180 IF D-0 THEN 1110 

1190 AS-INKEYS:IF AS<>CHHS(B) T 

HEN 1190 

1200 PP»PP-lr PRINT «256.MID$(C3 

,1,PP) ;G0TO 1110 

1210 GOTO 1130 

1500 DATA O cachorro manco que 

anda com tres pernae .E fato qu 

e qualquer um , "Na hora certa, 

o elefante " 

1510 DATA pode arraatar ,aera c 



apaz de sentar aobre ,pode pula 
r por aobre 

1520 DATA a velha caixa eaburac 
ada ,a torre inclinada de Piaa 
,qualquer una daa arvores da fa 
zenda 

1530 DATA e derruba-la com Utt e 
norme eotrondo. ■ sens nedo de ter 
uma surpresa . , ate a hora de fe 
char o zooloflico. 
2000 CLS:P-0;IF A$(0)-"" AND AS 
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(1)-"" AND A$(2)-"" THEN 2090 
2010 PEINT" VOCE QUER USAR UMA 
PASSAGEM JA DIGITADA CS/N) ?' 
2020 A$-INKEY$rIF ASO'S' AND A 
3<>"N" THEN 2020 
2030 IF AS-'S' THEN 2120 
2040 IF AS(P)-"" THEN 2090 
2050 P-P+1:IF P<3 THEN 2040 
2060 PHINT ' AS TRES PASSAGENS 
FOHAM DIGITA- DAS. QUAL VOCE DE 
SEJA REESCRE- VER (1-3)7" 



2070 A$-INK£YS:1F AS<-1" OH A$> 

"3" THEN 2070 

2080 P-VAL(AS>-1 PRINT AS: PRINT 

2090 POKE 282,0: PRINT "DIGITE U 

MA PAS SAG EM : " 

2100 LINE INPUT AS(P) 

2110 GOTO 2150 

2120 CLS:PHINT"QUAL PASSAGEM SE 

RA USADA (1-3) 7" 

2130 A$-INKEyS:IF A$<"1" OB AS> 

"3" THEN 2130 




2140 P-VAL(A$)-X:IF AS{P)-"" TH 

EN 2120 

2150 CLS 

2160 POKE 282. 255: CLS: PRINT " D 

ESEJA HABILITAR A TECLA DE RE 

THOCESSO (S/N)?" 

2170 A$-INKElf$:lF A$<>"S" AND A 

S<>"N" THEN 2170 

2180 D-0:E-0:IF A$-"S- THEN D-1 

2190 CLS: POKE 282 , :CS-AS {P> :G0 

SUB 1070: RETURN 



HIE] 



10 HOME : DIM A$(2) 

20 HTAB 8: VTAB 5: PRINT "QUAL 

TESTE? (1-2)" 
30 HTAB 6: WTAB 7: 
E <0> PARA TERMINAR. 
40 GET A$: IF A$ < 
"2" THEN 40 

IF NOT VAL (AS) 

END 

ON VAL (AS) GOSUB 1000,200 



50 

E 

60 



70 

NT 

80 

1000 

1010 



PRINT "TECL 



'0- OR A3 > 



THEN HOM 



HOME : HTAB 7: VTAB 14: PHI 
NUMERO DE EUROS ->';£ 
GOTO 20 

HOME :Tf - 

PRINT "VOCE QUEH USAS A T 
DE RETRO 



D AS 

1030 



1 TO 
+ 1: 

1060 

- C$ 
1070 
1080 
1090 



1,1) 
1110 
1120 



R THEN C$ 



VTAB 12 
CHRS (8) 



ECLA 

GESSO «-)?"; 

1020 GET AS: IF AS < > 'S" AN 
< > -N" THEN 1020 
E - 0:D - 0: IF ASC (AS) 
- 83 THEN D-1 
1040 HOME : IF Y THEN 1060 
1050 CS - "": RESTORE : FOR K - 

4:R - INT ( RND (1) * 3) 

FOR J - 1 TO 3 

READ BS: IF J 

+ B$ 

NEXT : NEXT 

PHINT CS :PP - 

GET AS: IP AS 
THEN 1090 
1100 IF AS < > MIDS (CS. PP + 

AND D - THEN 1140 

PHINT A$; :PP - PP + 1 

IF AS < > MIDS (CS.PP.l 
) THEN 1140 

1130 IF PP - LEN (C$) THEN R 
ETURN 

1135 GOTO 1090 

1140 PHINT CHRS (7)i:E - E + 
1 

1150 IF NOT D THEN 1090 
1160 GET A3: IF AS < > CHRS 
(8) THEN 1100 

1170 PHINT AS;:PP - PP - 1: GO 
TO 1090 

1500 DATA cachorro aanco du 
e andia con tres pernas ,E fato 
que qrualquer urn , "Na hora certa 
, o elefante " 

1510 DATA pode arrastar .sera 
capaz de sentar 8obr« , "pode p 
ular por aobre " 
1520 DATA a velha caixa eabur 
acada ,a torre inclinada d« Pis 
a ,'(iualguer una das arvores da 
fazenda " ^^' 





A APRESENTAqAO DE UM TEXTO 

Dada a facilidade com que se pode 
corrigir erros no tectado do computa- 
dor, 6 possivel produzir cartas limpas, 
sem borroes ou letras esbranqujgadas 
pelo USD de papel corretor. 

Um documento bem montado apre- 
senta margens de pelo menos tres cen- 
tlmetros de ambos os lados (o texto, 
obviamente, deve estar centralizado no 
sentido vertical). Se voc6 usar um edi- 
tor de textos. as margens serao def ini- 
das automaticamente; mas, num pro- 
grama seu, isso deve ser feito por in- 
term^dio dos comandos PRINT ou 
PRINT AT. 

Tao importante quanto as margens 
6 a distribuipao correta de paragrafos, 
Estes fazem com que o texto fique cla- 
ro e f^cil de ser lido. Existem duas for- 
mas de iniciar um paragrafo: a tradicio- 
nal, em que a primeira palavra comega 
a ser escrita alguns espacos para a di- 
reita; e a mais moderna, na qual se pu- 
la uma linha entre um paragrafo e ou- 
tro, sem fazer o recuo no comedo da 
frase. Pode-se tamb^m, evtdentemen- 
te, combinar os dois mStodos. 

Se vocS tiver uma carta muito pe- 
quena para redigir, deixe um bom es- 
papo na parte de cima do papel, antes 
de iniciar a impressao e/ou aumente o 
numero de linhas entre os parSgrafos. 
Com um pouco de prdtica, voce produ- 
zitA textos bem centralizados e com um 
belo aspecto. 



PRINT -DIGITE UMA 



1530 DATA e derruba-la com en 
orve eatrondo. , sea niedo de ter 
una sufpresa. ,ate a hora de fee 
har o zoologico. 
2000 HOME :P - 0: ir AS(0) ^ 
$C1) + A${2> - "' THEN 2090 
2010 PRINT "VOCE QUER USAH UMA 
PASSAGEM JA DIGITADA? {S/N) " : 



GET A$: IF A$ < > "S' AN 

< > "N- THEN 2020 
IF AS - *S" THEN 2150 
IF A${P) - "" THEN 2090 

P-P+1: 1FP<3 THEN 2 



332 



2020 

D AS 

2030 

2040 

2050 

040 

2060 PRINT : PRINT "AS TRES PA 

SSAGENS JA FORAM DIGITADAS. 

QUAL VOCE DESEJA REESCREVER? 

Cl-3)-; 
2070 GET AS: IF A$ < "l" OR AS 

> "3" THEN 2070 
2080 P - VAL CAS) - Ir PRINT A 
3: PRINT 



1 TO 255 

IF AS - CHRS 



(13 



2065 AS(P) - 
2090 PRINT 

PASSAGEM: ' 
2100 FOR I 
2110 GET AS 
) THEN 2140 

2115 IF AS - CHRS (8) THEN AS 
(P) - LEFTS (A$(P), LEN (AS (P) 
) - 1): PRINT CHRS (8);: GOTO 
2110 
2120 AS{P) - A$(P) + AS 



2125 


MTAB 


P); 




2130 


NEXT 


2140 


GOTO 


2150 


HOME 



1: VTAB 5: PRINT AS ( 



2180 

: PRINT "QUAL PASSAG 
EM SERA USADA? (1-3) '; 
2160 GET A$: IF AS < "1" OR AS 

> -3- THEN 2160 
2170 P - VAL (AS) - 1: IF AS{P 
) - "" THEN 2150 
2180 HOME 




PLlCACOi 



r.c 



2190 CS - AS(P) 
10: RETURN 



1: GOSUB 10 



m 



10 CLEAR2000 

20 H-RND(-TrME) :S$-"L10 02 G" 

30 CLS:DIMAS{2) 



T^ 



% 



40 LOCATE 8,SrPRINT"Qual teste? 

(1 ou 2)" 
50 LOCATE 6,7;PRINT"Tecle <0> p 
ara terminar." 

60 A5-INKEY$:IFAS<"0'ORAS>"2"TH 

EN60 

70 rFAS-"0"THEKCLSrEND 

eO ONVAL(AS]GOSUB1000.2000 

90 CLE [LOCATES. 12: PRINT" Pa lavr a 

a por minuto -> ";USING '«#*.•» 

■;LEN(C$>*600/TIME 

100 LOCATE?, 14 :PBINT"Ndmcro de 

erros ->";E 

110 GOT040 

1000 CLS:COLOB 15,6:y-0 

1010 PRINT"Voc§ quer usar a tec 

la de retrocesao 

1020 AS-INKEYS:IFA$<>'s"AHDA$<> 

"S'ANDA$<>*n"ANDA$<>"N"THEN1020 

1030 E-0:D-0:IFAS-"S"ORAS-'S"TH 

END-1 

1040 CLS:IFyTHEN1080 

1050 CS-"" : RESTORE :F0RK-1T04: R- 

INT<HND{1)*3)+1 ;FORJ-1T03 

1060 READB$:IFJ-RTHENC$-C$+B$ 

1070 NEXT: NEXT 

1080 PRINTCS 

1090 PP-0 

1100 AS-INKE!rS:IFAS-"''THENllOO 

1110 TIME-0:GOTO1140 

1120 A$-INKEYS:IFAS-"ORA$-CHRS 

(8)THEN1120 

1130 IFAS<>MIDS{CS,PP+1,1)ANDD- 

0THIEN1170 

1140 VPOKE PP+201,ASC(A$) :PP-PP 

+1 

IISO IFA$<>MIDS(CS,PP,l)THEmi7 



1160 BEEP:IFPP-LEN{C$)THENCOLOR 

15,4: RETURNELSE1120 
1170 PLAY SS:E-E+1 
1180 IFD-0THEN1120 
1190 A$-INKEYS:IFA$-""'THEN1190 
1200 IFAS<>CHa$(8)THEN1130 
1210 PP-PP-1:VPOKEPP+201,3Z:GOT 
O1120 

ISOO DATA cachorro nanco que 
anda com tr§s pernas ,t fato qu 
e gualquer tin ,*Na hora certa, 
o elefante " 
1510 DATApode 
paz de sentar 
r por aobre " 

1520 DATAa velha calxa eaburaca 
da ,a torre inclinada de Pisa , 
'qualquer una das ^rvores da fa 
zenda " 

1530 DATAe derrubj-la con enorn 
e eatrondo. , sens nedo de ter uma 

Burpreaa. ,at^ a hora de fechar 

o zooldgico. 
2000 CLS:P-0:IFAStO}+AS(l)+AS(2 
}-""TaEN2090 

2010 PHiNT'Voc* quer uaar uma p 
assagem jA digitada? (S/N)' 
2020 A$-INKEyS:IFA$<>-S"ANDA$<> 
-a"ANDA5<>"n"ANDAS<>"N-THEN2020 
2030 IFAS-"S"ORAS-"b"THEN2120 
2040 IFAS{P)-""THEN2090 
2050 P-P+1;IFP<3THEN2040 
2060 PRINT :PRINT"Aa tr«B pasaaq 



arraatar ,serd ca 
sobre , *pode pula 




Deve-se seguir algums regra ao modi- 
ficar as f rases do programa? 

Isso depende de sua capacidade co- 
mo datil6grafo. Se o curso inteiro foi 
bem assimilado, voce deve ser capaz 
de digitar corretamente qualquer tex- 
to, seja este longo ou curto, simples ou 
complexo, usando os dez dedos e nSo 
apenas dois, como fazem aiguns ini- 
ciantes. 

Os dedos menores. no entanto, nao 
raro exigem mais treinamento que os 
outros. Para tsso, certifique-se de que 
suas frases cont^m muitos Qs, As, Zs, 
Ps, e Ls. E possfvel fazer treinamentos 
extra de quaisquer dedos, montando 
um conjunto apropriado de palavras. 

t preciso, contudo, que essas pala- 
vras aparepam misturadas a outras, de 
modo a cobrir todo o teclado. A frase 
"A zebra quase fugiu do zool6gico pu- 
lando a grade" & um exempio, assim 
como "Ftque quieto e traga-me uma 
caixa com doze litres de uisque". Se 
voce quiser aumentar a destreza dos 
dedos menores, "fapa novos exercfcios, 
inventando outfas frases como essas. 

O programa desta llgao combina trSs 
frases para formar una texto que tenha 
algum sentido. Com um pouco de tma- 
ginacao, voc^ poderd conseguir o mes- 
mo efeito com suas prOprias frases, 



ens foraii digitadaa. Qual 

vocS deseja reescrever? Cl-3)" 
2070 A$-INKEYS:IFAS<"1"0RAS>"3" 
THEN2070 

2080 P-UAL (AS) -1:PRINTAS: PRINT 
2090 PRINT'Digite uma paasagen: 

2100 LINEINPUTA${P) 

2110 GOTO2150 

2120 CLSrPRINT'Qual passages se 

ri usada? (1-3)" 

2130 AS-INKEY$:1FA3<"1"0RAS>"3' 

THEN2130 

2140 P-VAL{A$)-l;IFA5(P)-"''TaEN 

2120 

2150 CLS 

2160 COLOR 15,12:CS-AS(P) :Y-1 :G 

OSUBl 010: RETURN 
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BOSSOLAS 
I IREIDGIIO! 



Seno, cosseno, tangente: transformadas 
em comandos do BASIC, essas 
fungoes trigonometricas sao esseticiais 
quando se quer desenhar curvas, 
circulos e eiipses no cotnputador, 



Os computadores sao frequentemenle 
relacionados com a Maiematica. Embo- 
ra programar em BASIC nao exija mui- 
to conhecimento nessa area, a maioria 
dos processes do BASIC e familiar a 
qualquer matcmatico. Contudo, muitos 
detes sao usados nao so para fazer cal- 
culos, como tambcm para controlar va- 
rias outras opera^oes. 

Algumas das Tungoes matematicas 
mais liteis para o programador sao 
aquelas que calculam a rela^ao entre an- 
gulos e disiancias; eias sao, alias, as mais 
indicadas para o trabalho com grificos, 

Suponhamos, por exemplo, que que- 
remos descnhar urn relogio. Poderiamos 
comeijar pela caixa, usando o comando 
CIRCLE — menos no TRS-80 e no Ap- 
ple — , mas ten'amos dificuldade em po- 
sicionar corretamente os numeros, se 
calcu las semes cada posi?ao manualmen- 
[e. Ora, um relogio com numeros em 
posi^oes erradas nao serviria para nada. 

Felizmenie, as funpoes matematicas 
podem ser usadas para fazer esse calcu- 
lo. No rel6gio, a distancia entre dois nu- 
meros e de um doze avos de volta. Essa 
distancia pode ser calculada pelo com- 
putador: basta fornecer-lhe um ndme- 
ro em graus ou em radianos. 

Uma volta completa tern, no circulo, 
360 graus, o que equivale a 2xPI radia- 
nos. No relogio, os niimeros estao po- 
sicionados a cada 30 graus (30"), ou a 
cada PI/6 radianos — ou seja, a cada 
um doze avos de volta. O mimero PI (le- 
se "pi") e ks vezes representado pela !e- 
tra grega n. 

Frcqiientemente usado para catcular 
varies aspectos de um circulo, tais co- 
mo sua area e comprimento, PI vale 
aproximadamente 22/7 (quase 3,14). Al- 
guns computadores jd tern esse mimero 
armazenado na memoria (como os mi- 
cros da linha Sinclair). 

E aconselhavel fami!iarizar-se tanto 
com graus como com radianos, pois, se 
OS primeiros sao a medida mais comum 
para angulos. e com radianos que os 
computadores trabalham. 

Se calcularmos SIN 30 (seno de 30) 

ao mesmo tempo numa calculadora e 

num computador, os resultados serao 

expresses de maneira diferente, a nao 

I ser que a calculadora esteja no modo 

I RAD (radiano). Isto acontece porque, 




enquanto esta trabalha com medidas em 
graus, o computador opera com ra- 
dianos. 



DE GRAUS PARA RADIANOS 



Para passar um niimero de graus pa- 
ra radianos basta dividi-lo por 1 80 e de- 
pois multiplicar o resultado por PI, Pa- 
ra efetuar a operacao inversa (de radia- 
nos para graus), faz-se o contrario: 
multiplica-se o numero por 180 e divide- 
se por Pi. 

O programa a seguir o ajudari a 
familiari7,ar-se com as conversoes, Ele 
converte graus em radianos e vice-versa. 
Se voce tiver uma calculadora, e quiser 
comparar os resultados, use-a da seguin- 
te maneira: calcule o seno (cemando 
SIN), o cosseno (COS) e a tangente 
(TAN) de um numero na calculadora e 
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anote os resultados; converta esse nume- 
ro em radianos no computador; faga os 
mesmos cdlculos na calculadora e com- 
pare OS resultados com os obtidos ante- 
riormente — se tudo for feito correta- 
mente, eles deverae ser iguais. 



10 INPUT "DESEJA CONVERTER GR 

AUS PARA RADIANOS (1) OU 

RADIANOS PARA GRAUS (2) ?';« 

20 IF a-2 THEN GOTO 70 

30 IF" aOl THEN GOTO 10 

40 INPUT "QUAL E NUMERO?" ;b 

50 PRINT "E IGUAL A "; b/180* 



CONVERTA GRAUS EM RADIANQS 
COMO DESENHAR UMA8USS0LA 



COMQ MEDIR ANGULOS NUMA 

BUSSOLA 

QUE SIGNIFICAM SIN, 



COS E TAN 



OS GRAFICOS DE SIN E COS 
USE SIN E COS PARA 



DESENHAR CIRCULOS 



UMA ESFERA FEITA DE ELIPSES 




PI;" RADIANOS": GOTO 90 

70 INPUT "QUAL E NUI1ER07-;b 

80 PRINT 'E IGUAL A "; b*180/ 

PI;' GRAUS" 

90 PRINT 'PHESSIONE QUALQUER 

TECLA PARA COHECAR NOVAMCNT 

E": PAUSE 0: CLS : GOTO 10 

DD 

10 P1-4«ATN(1) 

20 CLS 

30 INPUT-VOCE QUEB CONVIHTER OR 

AUS PARA RADIANOS (1) OU RADI 

ANOS PARA GRAUS {2) ' :A 

40 IF A-2 THEN GOTO 90 

50 IF AOl THEN OOTO 20 

60 INPUT "QUAL E NUMERO ";B 



A divisao do circulo tm 
gmus possibilila umu 
griinde vsiriedade de 
aplica^'des, como os minulos 
e hafa!> de um rtlogto 
nu osi pontos cardeais de 
uma bussula. Uma 
volta compkta cnnletn 360 
grauii. No computador, 
essa contagcm i feila por 
meio de radianox: cada 
villi a abriga, nesle caso, 
1 PI radiaiius (PI e 
a forma fon^lii'a da letra 
t;rega tt, t|ue designs 
uma constants matcmatica de 
valor aproximado a 3,14). 

?0 PRINT -ISSO E IGUAL A ';B*1 

/180;" ElADIANOS" 

80 GOTO 110 

90 INPUT 'QUAL E NUMERO ";B 

100 PRINT "ISSO E IGUAL A ' :M*1 

80/PI;' GRAUS" 

110 PRINT "PBESSIONE QUALQUCR T 

ECLA PARA EXECUTAB OUTRA VEZ. 



120 AS-INKEYSrlF AS- 
120 
130 GOTO 



THEN GOT 



20 



m 



10 PI-4*ATNC1) 

20 CLS 

30 INPUT"CONVERSAO DE GRAUS PAR 

A RADIANOS (1) OU DE RADIANOS PA 

RA GRAUS (2) '-.A 

40 IF ACl OR A>2 THEN 10 



50 PRINT: INPUT "QUAL NUMERO "; 

B 

60 PRINT:PRINT'ELE VALE'; 

70 IFA-ITHEN PRINT B/180*PI ; "RA 

DIAN08' 

80 IFA-'2THEN PRINT B*180/PI ; "OB 

AUS" 

90 PRINT :PRINT'QUALQUER TECLA P 

ARA REPETIR" 

100 IF INKEY$-" THEN 100 

110 GOTO 20 



DEE] 



10 PI - 4 * ATN (1) 

20 HOME 

30 INPUT "CONVERSAO DE GRAUS P 

ARA RADIANOS (1) OU DE RADIANOS 

PARA GRAUS (2) 7 ' lA 
40 IF A < > 1 AND A < > 2 TH 
EN 20 

50 PRINT '. INPUT 'QUAL O NUMER 
? ";B 

60 PRINT : PRINT "ELE VALE ' : 
70 IF A - 1 THEN PRINT B / 18 
« PI;" RADIANOS- 
80 IF A - 2 THEN PBINT 8 * 18 
/ PI;" GRAUS" 

90 PRINT ; PRINT "QUALQUER TEC 
LA PARA REPETIR" 
100 GET AS; IF AS - "" THEN 10 

110 GOTO 20 

Uma vez rodado. o programa pede 
por 1 OU 2, que especificam se a conver- 
sao ^ de graus em radianos ou de radia- 
nos em graus. Depois o programa soli- 
cita o mimero a ser convertido e faz apa- 
recer o resultado na teJa. Entretanto, vi- 
sualizar um angulo que 6 represemado 
por um simples numero pode as vezes 
ser muito difi'cil, a nao ser que esteja- 
mos em condigoes de vS-lo desenhado. 
Uma representaf ao bastante comum de 
todos OS angulos possiveis e encontra- 
da nas bussolas. Poderiamos verificar is- 
so numa bilssola de verdade; mas para 
que, se o computador pode mostra-io 
tambem? 



DESENHE UMA BUSSOLA 



Como existe uma forte relaijao entre 
circulos {ou arcos de circulos) e medi- 
das de angulo, podemos usar essas me- 
didas para dcscnhar reldeios, bussolas 



L _. 
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A medida que A se move no sentJdn horiHo, p sumenU e q dlmiuyl. 




ou qiiaisquer outras figuras circulares, 

Os programas mencionados a scguir 
desenham uma biissola e poskionam as 
marcatpoes de graus. O norte correspon- 
de a 0, o leste a 90, o sul a 180 e o oeste 
a 270 graus. Construida a bussola, o 
programa desenhard qualquer angulo 
que quisermos. 

Somente a versao para o Sinclair 
Spectrum imprime niimeros em volta da 
bussola. Mais adiante veremos como 
contornar esse problema. 

Quando rodamos o programa, o 
computador pede por um ntimero e tra- 
ga uma linha do ceniro do circulo afe um 
certo ponto, formando um angulo de 
valor equivalente ao niimero fomecido. 
Isso quer dizer que. se fornecermos 90, 
a linha dcsejada partird do centro em di- 
re?ao a direita, Se digitarmos 180, a li- 
nha sairi do centro e ira para baixo, re- 
presentando assim um angulo de 180 
graus. 

Note que o computador espera que 
forne<;amos um niimero em graus para 
depois converie-lo em radlanos. Se 
olharmos para cada programa, veremos 
que a variavel de entrada e dividida por 
180 e muUiplicada por PL Isto nos pou- 
pa trabalho de fazer a conversao ma- 
nualmente. 



CLS 

20 CIRCLE 131 ,86.60 

30 PLOT 131.64 : DRAW 0.8: 

PLOt 127.88: DHAW 8,0 
40 FOR a-0 TO 2*P1 STEP PI/4 
50 PLOT 131+55 * SIN 3,88+55* 
COS a: DHAW 10*SIN a.lO«COS a 
60 NEXT a 

70 PRINT AT 2,16;0 
80 FOR b-45 TO 360 STEP 45 
90 PRINT AT 10-I0*COS (b/190* 
PI) ,15+10*SIN (b/180*PI)jb 

100 NEXT b 

110 INPUT " QUE ANGULO, EM G 

RAUS, VOCE DESEJA VER7",c 

120 INK 2 

130 PLOT 131.88: DHAW 45*SIN ( 

c/ie0*PI) ,45*COS (c/180*PI) 

140 INK 

150 INPUT " QUER RECOMECAH Cs/ 

n)?";d$ 

160 IF dS-"a" THEN PLOT 131, 

88: DRAW OVER 1;45*SIN (c/180 

*PI),45*C0S {C/180*PI) 

170 IF dSO'a" THEN BORDER 7: 

PAPER 7: CLS : STOP 

180 PLOT 131, 84 r DRAW 0,8: 

PLOT 127,88: DHAW 8,0: GOTO 

110 



(X) ) - {127+79«SIN(X) .95-79*C0S (X 

)) ,PSET 

70 NEXT X 

80 CLS: IHPUT'QUE ANGULO VOCE Q 

UEB ' ;Z 

90 SCREEN 1,1 

100 X-127+60*SIN(Z*PI/ieO) :5f-95 

-60*COS{Z*PI/180) 

110 LINE (127.91)-{127.99).PSET 

120 LINE (I23,95)-{131.95) .PSET 

130 LINE (127.95)- tX.Y) .PSET 

140 IF INKEY$--- THEN 140 

150 LINE(127,95)-(X,Y) .PRESET 

160 GOTO 80 



m 



^ 



10 BORDER 4: PAPER 4: INK 0: 



10 PMODE 4.1 

20 PCLS 

30 P1-4*ATN(1) 

40 CIHCLE{127,95) .80,5 

50 FOH X-0 TO 2*P1 STEP PI/4 

60 LINE(127+72*SINCX) ,95-72*COS 



10 PI-4*ATN(1) 

20 CLS 

30 INPUT" QUE ANGULO DESEJA VEH 

";2 : Z-Z/180*PI 

40 SCREEN2:C0L0R1,1S 

50 CIRCLE(128,96) .80.1.. .1 

60 FOH X-0 TO 2«PI STEP PI/4 

70 LINE(128+72*SIN{X) ,96-72*C0S 

(X))-(12&+79*SIN(X) ,96-79*COS(X 

)> ,1 

80 NEXT X 

90 LINE(12e,92)-(12a,100) ,1 

100 HNE(124.96)-(132,96) ,1 

110 FOH I-O TO 500:NEXT 

120 X-128+60*SIN(2) :Y-96-60"COS 

(2) 

130 LINE(12e,96)-(X,y) ,1 

140 FOR 1-0 TO 3000:NEXT 

150 GOTO 30 



a] [5" 
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10 HGK 




20 HCOLOR- 3: HOME 




30 PI - 4 * ATN (1) 




40 FOR X - TO 2 " 


PI STEP PI 


/ 60 




50 HPLOT 140 + 80 * 


SIN (X).8 


- 80 * COS (X) 




60 NEXT X 




70 FOR X - TO 2 « 


PI STEP PI 


/ 4 




ao HPLOT 140 + 72 * 


SIN CX).8 


- 72 * COS (X) TO 


140 + 79 * 


SIN (X) .80 - 79 * 


COS (X) 


90 NEXT X 




100 HPLOT 140,76 TO 


140,84 


110 HPLOT 136,80 TO 


144,60 


120 VTAB 23 




130 INPUT -QUE ANGULO DESEJA U 


EB ? -:2iZ - 2 / 180 


« PI 


liO X - 140 + 60 « SIN (Z)-.Y - 


80 - 60 * COS (2) 




150 HPLOT 140,80 TO 


x.y 


L60 GET h&: IF A3 - 



170 HCOLOR- 


'" THEN 16 




180 HPLOT 140.80 TO 


X.Y 


190 HOME : HCOLOR- . 


3 


200 GOTO 100 





Os programas do Apple e do TRS- 
Coior comegam ajustando o modo gra- 
fico adequado na linha 10; depois, eles 
limpam a tela. Como o TRS-Color, o 
MSX c o Apple nao tem o niimero PI 
armazenado na memoria; scus progra- 
mas criam uma variavel, PI, com o raes- 
mo valor do numero PI. 

Todos OS programas, exceto o do Ap- 



ple, usam depois o comando CIRCLE 
para desenhar a caixa da bussola (circu- 
!o) — linha 40 no TRS-Color, linha 20 
no Spectrum e linha 50 no MSX. O Ap- 
ple nao possui o comando CIRCLE; por 
isso, nek o circulo e desenhado passo a 
passo nas linhas 40 a 60. 

Os programas desenham enlao a.s 
marcacoes que completam a bussola: pe- 
quenas linhas a cada 45 graus ao redor 
do circulo nos ajudam a saber a exata 
posifao de cada marca(;ao (a versao pa- 
ra o Spectrum numera as posi^oes). Tu- 
do isso e posicionado de acordo com a 
abertura de cada angulo. 

A parte seguinte dos programas, me- 
nos do MSX, pede que entremos o an- 
gulo desejado; linha 80 para o TRS- 
Color, 1 10 para o Spectrum e 130 para 
o Apple e o TK-2000. 

Uma pequena cruz no centro do cir- 
culo desenhado nos ajudara a verificar 
se OS angulos cstao corretos: se entrar- 
mos um angulo de 90 graus, o tra(;o la- 
teral direito da cruz sera superposto pe- 
la nova linha. A cruz e desenhada por 
meio de duas pequenas linhas. 

Mostrado o angulo pedido, a versao 
do Spectrum pergunta se queremo.^ ver 
outro angulo; a versao dos ouiros mi- 
cros espera que apertemos qualquer te- 
cla. Antes de desenhar um novo angu- 
lo, o TRS-Color, o Spectrum e o Apple 
apagam primeiramente a linha anterior. 
O MSX apaga todo o desenho e o ret'az 
depois com o angulo novo. 

Para ampliar a analogia com a bu.s- 
sola basta substiiuir as marcatjoes de 
graus por N, L, S e O (ou seja, norte, 
leste, sul e oeste), e usar o programa co- 
mo um indicador de direijao. Assim, se 
quisermos viajar num angulo dc 270 
graus, devemos entrar o %'alor 270; o 
compuiador'desenhara entao uma linha, 
aponlando a direcao desejada. 



PONTOS NUM CiRCULO 



Os programas apresentados na se(;ao 
anterior usam SIN e COS, duas funi;6es 
BASIC que correspondem as l'unt;6es 
trigonometricas "seno" e "cosseno", 
respectivamente. 

Elas se referem a posii;ao de um pon- 
to na circunfcrencia em relacao a dois 
eixos que se cortam perpendicularmen- 
te no centro do circulo. O eixo vertical 
e chamado de "Y" e o horizontal, de 
"X". Na ilustraijao destas paginas, o 
ponto A da circunfcrencia esta ligado 
aos dois eixos pelas linhas p e q. 

Neste caso, p e q t&m o mesmo com- 
primento. Mas, se movernios A para 
baixo, sobre a circunfcrencia, pcrcebe- 
remos que p cresce enquanto q diminui. 



Quando A chegar aos 90 graus, q vale- 
ra O, enquanto p ser^ igual ao raio da 
circunfcrencia. 

Usando o programa da biissola po- 
demos visualizar melhor o que aconte- 
ce. Entremos os angulos 0, 30, 45 e 90. 
A medida que as linhas mudam de po- 
sicao, podemos imaginar como p e q, 
embora nao desenhadas na tela, variam 
de comprimento. Com uma regua po- 
deriamos medir p e q direto da tela. 



VALOR DE SIN E COS 



Evidentemente, a rela^ao entre p e q 
muda a medida que o angulo aumenta 
ou diminui. Existe ainda uma reJafao 
entre o raio do circulo e as linhas p e q 
(quando A estiver em 90 graus, p tera 
o mesmo valor do raio do circulo). As- 
sim como a anterior, essa relacao entre 
o raio e as linhas p e q tambem pode ser 
calculada, mudando sempre que o an- 
gulo mudar. 

A relagao entre o raio e p e chamada 
de "seno" do angulo. A relacao entre 
o raio eq eo "cosseno" do angulo. Ou 
seja, se dividirmos as linhas p e q pelo 
raio, obteremos, respectivamente, o se- 
no e o cosseno desse angulo, Assim, se 
raio for igual a 1 , os valores do seno 
e do cosseno serao iguais aos compri- 
mentos de p e de q. 

O triangulo da ilustracao abaixo foi 
obtido do diagrama da bussola. Um dos 
seus vertices i formado pelo encontro do 
eixo X com a linha que liga A ao centro 
do circulo. Uma lerceira linha, que sai 
de A e encontra o eixo X em angulo re- 
to, forma o ultimo lado do triangulo. 

O seno do angulo formado pelo en- 
contro da linha que liga A ao centro do 
circulo com o eixo X c a relagao entre 
lado oposto a esse angulo e a hipoie- 
nusa. A hipotenusa e sempre o lado 
oposto ao angulo reto. Na iiustragao ela 
e formada pela linha branca que liga A 
ao centro do circuio. O terceiro lado do 
triangulo e chamado de adjacenie. 

O cosseno tambem e, como vimos, 
uma relacao entre dois lados. Existe ain- 
da uma outra rcla?ao entre lados, co- 
nhecida como tangenie do angulo, 

Em resumo, as relafoes sao as seguin- 
tes: 

seno = lado oposto/hipotenusa 
cossieno = lado adjacente/hipotenusa 
tangente = lado oposto/lado adjacente 

As ir6s rela<;6es podem ser calculadas 
pelo computador por interrrtedio das 
funi;oes SIN, COS e TAN. Por exem- 
plo, PRINT SIN. 5 coloca na tela o se- 
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no do angulo .5 radianos, 

Na ilustrapao da p^gina 336, k me- 
ditia que o ponio se move em senti- 
do horario, partindo do topo do cir- 
cuio (angulo 0), os valores do seno e 
do cosseno aumentam e diminuem res- 
pectivamente, porque p e q mudam de 
tamanho. Depois dos 90 graus o se- 
no comegara a diminuir; quando o pon- 
to passar pelos 180 graus tudo mudara 
outra vez. 

Lembremos que o seno mede o quan- 
to urn ponto esta a direita do eixo Y. As- 
sim, quando ek atingir a metade esquer- 
da do cjrculo, o seno se tornara nega- 
tivo. 

Do mesmo mode, quando o ponto 
estiver na metade inferior do circulo (e, 
portanto, abaixo do eixo X), o cosseno 
sera negative. 



m 



10 SCRE EN2: COLOR 1. IS 

20 CLS 

30 PI -4* ATM (1) 

40 LINE(7,96J-(256,96) ,1 

50 LIME (11,1) -{11. 192) ,1 

60 LINEC7,46)-(11,46) ,1 

70 LINE(7,X46)-(ll,146),l 

80 FOR X-72 TO 256 STEP 61 

90 LINE(X,93)-(X,96),1 

100 HEXTX 

110 FOR X-0 TO 2*PI STEP PI/123 

120 PSET(123"X/PI+11,96-50«BIN< 

X)) ,6 

130 PSET(123*X/PI+11,96-50*COS( 

X) ) , 10 

140 NEXTX 

150 IF INKEYS-"" THEN 150 

160 EHD 



HIE] 



10 Haa2 : HCOLOR- 3 
20 PI - 4 * ATM tl) 



30 


HPLOT 


6,95 TO 


255 


.95 






40 


HPLOT 


10.0 TO 


10, 


191 






50 


BPLOT 


6.45 TO 


10. 


45 






60 


HPLOT 


6,145 TC 


10 


.145 






70 


FOR X 


- 72 TO 


255 


STEP 61 




90 


HPLOT 


X,92 TO 


X,95 






90 


NEXT H 












100 


FOR J 


- TO 


2 * 


PI STEF 


P 


I / 


123 












110 


HPLOl 


123 * » 


/ 


PI + 


10. 


95 


- 50 * SIN (X> 










120 


HPLOl 


123 * * 


/ 


PI + 


10, 


95 


- 50 * COS (X) 










130 


NEXT 


X 










140 



150 


GET A$: IF AS 


b 


"" THEN 


14 


HOME 


: TEXT 











III 



N 

a, 
n 
u 
li 
P 

n 

S 
n 

Xi 
SI 
S( 

o 

li 

St 

F 



OS GRAFICOS DE SENO E COSSENO 



Os programas a seguir mostratn as 
mudanfjas do seno e do cosseno a medi- 
da que o ponto gira pelo circulo. 



10 PLOT 0,88 

20 DRAW 255,0 

30 PLOT 20,0: DRAW 0,175 

40 PLOT 10,158: DRAW 15,0: 

PLOT 10.18: DRAW 15,0 

50 PRINT AT 2,0il;AT 20,0 ;-li 

AT 11,0; 0; AT 20. 15; 180; AT 20, 

29:360 

60 FOR a-0 TO 2«PI STEP .06 

70 PLOT 20+a*35,88+70*SIN a 

80 PLOT INK 2:20+3*35,88+70* 

COS a 

90 NEXT a 

D 

10 PMODE 3,1 

20 PCLS 

30 PI-4*ATN(1) 

50 LINE(6,95)-(255,95) ,PSET 

60 L1NE(10,0)-(10.191) ,PSET 

70 LINE(6,45)-(10,45) ,PSET 

80 LINE(6,145)-(10,145) ,PSET 

90 SCREEN 1.1 

100 FOR X-72 TO 255 STEP 61 

110 LINE{X.92)-(X.95).PSET 

120 NEXT 

130 FOR X-0 TO 2*PI STEP PI/123 

140 PSET (123*X/PI+10.95-50*SIN 

(X) .3) 

150 PSET (123*X/P1+10,95-50*COS 

(X) .2) 
160 NEXT 
170 GOTO 170 

No iriangulo retangulo. a relaflo entre os 

lados i dada peln!t dois angulos nao-relos. 

Dependendo dos lados comparados, 

essa relafao sera cliamada de seno 

|(.SA^'), cosseno (COS) ou tangente (TAN). 
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Como no programa da bussola, o 
MSX, o Apple e o TRS-Color comegam 
ajuscando o modo grafico adequado (It- 
nha 10). Mais uma vez, os tres criam 
uma variavel (PI) para o valor de PI na 
linha 30. Depois, todos tra$am os eixos 
para o grafico. 

Os programas desenham pequenas li- 
nhas que representam intervalos ao Ion- 
go dos eixos. A versao para o Spectrum 
numera os tragos. As marcas para o ei- 
xo Y (eixo vertical) sao 1 e - 1 , as quais 
satis fazem todos os possiveis valores do 
seno e do cosseno. A numerapao para 
o eixo X vai de a 360 graus. 

O computador desenha entao os gra- 
ficos, um para o seno e outro para o cos- 
seno. Ele faz isso usando um lago 
FOR... NEXT. 




Inveniuda na China 
por volta de 
1100, a IjussoJa 
magnetita so se 
tortiQu conhecida na 
Europa um secuto 
mais larde. An Udo, 
•A busiiola do 
Sinclair Spectrum 
mostra um 
angulo de 70 graus. 




Vimos que exisiem 2xPl radianos 
num circulo; portanto, se quisermos 
compreender todos os angulos, o la?o 
devera ser FOR T = TO 2*P1. Nesse 
la<;o existem saltos (STEP) para que o 
computador nao faga um desenho a ca- 
da minima variagao de angulo, mas so 
a cada ires ou quatro variagoes. 

O STEP faz com que o programa se- 
ja ma is rapido. Para ler uma ideia de 
sua importancia, lenie remove-lo e veja 
a diferen(;a. 

As linhas mais imponantes para o 
calculo dos valores do seno e do cosse- 
no (140, 150 no TRS-Color; 70, 80 no 
TK; 120, 130noMSXe 110. 120 no Ap- 
ple e no TK-2000) parecem muiio com- 
plicadas, mas na verdade sao bem sim- 
ples. Cada linha usa os comandos 
PLOT, PSET ou DRAW para desenhar 
o grafico. As posi?6es dos pontos sao 
determinadas pelo .seno e pelo cosseno 
(SIN e COS), que aparecem nessas li- 
nhas. Os outros numeros que os acom- 
panham servem simplesmente para mu- 
dar OS resultados de escaia, a fim de 
ajusta-los correlamente na tela; como 
cada computador tern uma disposigao 
de tela diferente, esses calcutos sao di- 
ferentes para cada um. 



DESENHE CinCULOS 



A chave para posicionar caracieres ao 
redor de um circulo, como no progra- 
ma da bussola, consiste, como vimos, 
em conhecer o ralo da circunferencia e 
tambem os angulos que eles formam 
com o eixo X . 

O que precisamos e de um programa 
que fornei^a o centre e o raio do circulo 
e calcule as coordenadas X e Y de qual- 
quer angulo dado. Se entrarmos uma se- 
rie de angulos, o programa sera capaz i 
de desenhar uma serie de ponios ao re- 



dor do circulo escolhido. O segredo es- 
ta em ensinar o computador a calcular 
as coordenadas X e Y, e e aqui que en- 
tram nossos velhos aniigos SIN c COS. 
Digite esie pequeno programa: 



20 FOB x-O TO i"PI STEP PI/30 
30 PLOT 128+50*SIN Ji,8B+50* 
COS X 
4 NEXT X 



fffi 



10 SCREEN2:C0L0I11.15 
20 CLS 

30 PI-4*ATN<1) 

40 FOR X-O TO 2*PI STEP PI/45 
50 PSET<128+eO*SIN(X) .96-e0*C0S 
(X)) ,1 
60 NEXTX 

70 IF INKEYS-*" THEN 70 
80 END 



HIE] 



10 HGR2 1 HCOLOB- 3 

20 PI - 4 * ATN (1) 

30 FOR 2 - TO 80 STEP 5 

40 FOB X - TO 2 * PI STEP PI 

/ 45 
50 HPLOT 140 + Z * SIN (X>,96 

- 80 * COS (X) 
60 NEXT X 
70 NEXf 2 

80 GET AS-- IF A$ - '" THEN 80 
90 HOME : TEXT 

A tela exibe uma serie de pontos que 
adotam a forma de iim circulo (essa for- 
ma nao e definida por uma linha conti- 
nua porque tal tinha levaria muito tem- 
po para ser desenhada}. 

Em cada programa, exceto no do 
Spectrum, o computador e ajustado pa- 
ra o modo grafico adequado. Em segui- 
da, e criado um valor para PI no TRS- 
Color, no MSX e no Apple. Um la(;o 
FOR. ..NEXT diz cntao ao computador 
para percorrer uma serie de angulos, que 
vai de a 2*PI (linha 20 no TK 90X, 30 
no TRS-Color, 40 no MSX e no Apple) 
— ou seja, diz para formar um circulo 
completo. O tamanho do salto (STKP> 
e o responsavel pela velocidade do pro- 
grama e pelo visual poniilhado. 

Na linha seguinte, o computador e 
instruido a desenhar um ponto para ca- 
da angitlo. A posigao do ponto e deter- 
minada pela formula: 

PLOT raio*SIN(X). raio*CaS(X) 

Como voce deve estar lembrado, es- 

sas fuiKiroes determinam as coordenadas 

I para qualquer anguio dado, Os outros 

I niimeros somados ou siibtraidos nessa 



linha servem para ajustar o centre do 
circulo em relagao a tela grafica do com- 
putador, O centro da tela de alta reso- 
lu(;ao no TRS-Color estd em 1 27, 95; no 
Apple, estd em 140,96; no MSX, esta em 
128,96 e no Spectrum, esta em 128,88. 

Tente agora alterar a posifao do cen- 
tre ou tamanho do raio: isso o ajuda- 
ra a eniender melhor essas funi;6es. 

Existem ainda outros numero.s que, 
ao serem mudados, alteram o visual do 
circulo. Na primeira linha do \a<;o, o 
STEP comanda a distancia entre um 
ponto e oulro. Quanto menor o STEP, 
mais continuo sera o circulo desenhado. 
Se quisermo.s maior niimero de pontos 
no desenho, devemos diminuir o STEP 
(ou dividir PI por um niimero maior). 

Q 

10 PMODE 4. 1:PCLS: SCREEN 1,1 

20 P1-4*ATN(1) 

30 FOR X-O TO 2*PI STEP Pl/45 

40 PSET C127+80*S1N(X) ,95-80*CO 

S{X) ,5) 

SO NEXT X 

60 GOTO 60 



CONSTRUA UMA ELIPSE 



Uma mudanga mais interessante con- 
siste em transformar nosso circulo em 
uma elipse. Para tanto, basta fazermos 
com que o numero que multiplica SIN 
seja maior ou menor que aquele que 
multiplica COS. Se o que multiplica SIN 
for maior, teremos uma elipse baixa e 
larga, Se for menor, a elipse sera alia e 
estreita. 

O programa a seguir desenha uma se- 
rie de elipses que, juntas, criam o efeito 
de um globo. 



10 FOR z-O TO 50 STEP 5 

20 FOR X-O TO 2«PI STEP PI/15 

30 PLOT 128+2*SIN x. 88+50* 

COS X 

40 NEXT X 

50 NEXT Z 

Q 

10 PMODE 4, 1:PCLS; SCREEN 1,1 

20 PI-4*ATN[1) 

30 FOR 2-0 TO 80 STEP 5 

40 FOR X-O TO 2*PI STEP PI/45 

50 PSET tl27+2*SIN (X) , 95-80*COS ( 

X).51 

60 NEXT X 

70 NEXT Z 

80 GOTO 80 




Qual o tamanho do maior circulo dese- 
nhado pelo computador? 

Evidentemente, nenhum cfrculo de- 
senhado pelo computador pode extra- 
vasar os limites de sua tela. De fato, 
o raio do maior circulo deve ser. no mS- 
ximo, equivalente d metade do menor 
dos lados da tela. Os maiores raios pa- 
ra cada computador sao: 88 para o 
Spectrum, 95 para o TRS-Color e 96 
para o Apple, TK-2000 e MSX. 

Ertretanto, para que esses nOmeros 
provoquem o efeito desejado, o centro 
do ci'f culo deve ser contido por eies. Se 
o cfrculo for muito grande, o Spectrum 
imprimiri uma mensagem de erro, en- 
quanto os outros computadores dese- 
nharao o mSximo que couber na tela. 



10 SCREEN2:COLORl,15 

20 PI-4*ATN(1) :CLS 

30 FOR Z-O TO SO STEP 5 

40 FOR X-O TO 2*P1 STEP Pl/45 

50 PSET{12B+Z*SIN{X) ,96-S0*COS{ 

X)) .1 

60 NEXT X 

70 NEXT 2 

80 IF INKE5f$-"" THEN 80 

90 END 



aiE] 



m 



10 BGE12 

Sfli HCOLOH- 3 

30 PI - 4 * ATN tl) 

40 FOR X - TO 2 * PI STEP PI 

/ 45 
50 HPLOT 140 + 80 * SIN tX) ,9 
6 - 80 « COS CX> 
60 NEXT X 

70 GET A$; IF AS ■ "" THEN 70 
80 HOME : TEXT 

Os programas do globo nao passam 
de versoes adaptadas do programa do 
circulo. Em vez de uma, apenas dese- 
nhamos agora uma serie de elipses, 
usando um segundo lai^o FOR, ..NEXT 
para variar o numero pelo qual a coor- 
denada X e multiplicada. Isso faz com 
que o computador trace elipses de tama- 
nhos diferentes. 

Podemos fazer a elipse "crescer" 
quanto quisermos, mudando o tamanho 
do STEP de Z (variavel de controle). 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



C6DIG0 DE MAQUINA 



utilize alguns pequenos programas escritos em c6digo 
de maquina para dar mais vida a seus programas em BASIC. 

PROGRAMApAO BASIC 

Reibgios mec^nicos e espirais: como elaborar desenhos 
complexos empregando os comandos SIN e COS. 

' PROGRAMAQAO DE JOGOS 

Os joysticks tornam seus jogos muito mais profissionais. Veja como 
utHiz3-los sem recorrer ao c6digo de maquina. 
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hAAQV^ 



CZ» 



p^-*-"^""""^ 
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